home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 14 / MacFormat n. 14 (Spain) / MacFormat 14.bin / Shareware Internet / HyperCard / XCMD Docs / CompileIt! Source Code / PaintPie rleft,rtop,rright,rbo… < prev    next >
Encoding:
Text File  |  1995-08-19  |  669 b   |  12 lines
  1. global arect:Rect -- allocate a shared rectangle
  2. on PaintPie rleft,rtop,rright,rbottom,startangle,arcangle,pattern
  3.   SetRect arect,rleft,rtop,rright,rbottom
  4.   -- if pattern spells one of the defined names, use that defined pattern
  5.   if pattern="Black" then FillArc arect,startangle,arcangle,Black
  6.   else if pattern="White" then FillArc arect,startangle,arcangle,White
  7.   else if pattern="Gray" then FillArc arect,startangle,arcangle,Gray
  8.   else if pattern="ltGray" then FillArc arect,startangle,arcangle,ltGray
  9.   else if pattern="dkGray" then FillArc arect,startangle,arcangle,dkGray
  10.   else FrameArc arect,startangle,arcangle  -- otherwise just draw border
  11. end PaintPie
  12.